home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / textyl / vecfonts / mf / vecbase2.mf < prev   
Text File  |  1993-11-07  |  6KB  |  177 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %    "VECBASE2.MF"                     Martin Costabel, 1987
  3. %    Translation to METAFONT82 of:
  4. %
  5. %    Vector font base ("VECBASE.MF")
  6. %    Copyright (c) 1984,1985,1986, 1987 John S. Renner
  7. %    All rights reserved.
  8. %
  9. %
  10. %  the following variables must be defined
  11. %  before inputting this file
  12. %       mode (the resolution:: e.g., islaprinter or isxerox, etc.)
  13. %       w0    (the width of the pen in "vec units")
  14. %       w1   (the height of the pen in "vec units")
  15. %            (note that w0 == w1 for a circular pen)
  16. %  no longer necessary (M.C.):
  17. %       the type of pen to use (cpen, vpen, hpen)
  18.  
  19. mode_setup;
  20.  
  21. numeric u#;
  22. u# = 1/4pt#;
  23. wx#:=w0*u#;  wy#:=w1*u#;  define_pixels(wx,wy);
  24. autorounding:=0;
  25. if w0<>w1: pickup pensquare xscaled wx yscaled wy ;
  26.     else : pickup pencircle xscaled wx yscaled wy ; fi;
  27. vecpen:=savepen;
  28.  
  29. def vecchar(expr code,vx,vy) =
  30.        numeric wd#,ht#,dp#,dx#,dy#;
  31.        dx# = vx*u#;       dy# = vy*u#;
  32.        define_good_x_pixels(dx); define_good_y_pixels(dy);
  33.        wd# = dx#;
  34.        if vy < 0: ht# = 0;   dp# = -dy#;
  35.           else:   ht# = dy#; dp# = 0;   fi;
  36.        if (vx,vy) = (0,0): wd# := u#;   fi;
  37.        beginchar(code,wd#,ht#,dp#);
  38.            pickup vecpen;
  39.            draw (0,0)--(dx,dy);
  40.        endchar;
  41. enddef;
  42.  
  43. designsize := 16u#;
  44. font_identifier:= "GRAPHIC-VECTORS";
  45. font_coding_scheme:= "ASCII";
  46. fontdimen 1 : 0, 0, wx#, wy#, 16u#, 16u#, 0;
  47.  
  48. vecchar ( 0,  0.9981,  15.9688);
  49. vecchar ( 1,  1.9846,  15.8764);
  50. vecchar ( 2,  2.9486,  15.7260);
  51. vecchar ( 3,  3.8806,  15.5223);
  52. vecchar ( 4,  4.7724,  15.2717);
  53. vecchar ( 5,  5.6180,  14.9813);
  54. vecchar ( 6,  6.4131,  14.6585);
  55. vecchar ( 7,  7.1554,  14.3108);
  56. vecchar ( 8,  7.8442,  13.9452);
  57. vecchar ( 9,  8.4800,  13.5680);
  58. vecchar ( 10,  9.0645,  13.1847);
  59. vecchar ( 11,  9.6000,  12.8000);
  60. vecchar ( 12, 10.0895,  12.4178);
  61. vecchar ( 13, 10.5361,  12.0412);
  62. vecchar ( 14, 10.9431,  11.6726);
  63. vecchar ( 15, 11.3137,  11.3137);
  64. vecchar ( 16, 11.6726,  10.9431);
  65. vecchar ( 17, 12.0412,  10.5361);
  66. vecchar ( 18, 12.4178,  10.0895);
  67. vecchar ( 19, 12.8000,   9.6000);
  68. vecchar ( 20, 13.1847,   9.0645);
  69. vecchar ( 21, 13.5680,   8.4800);
  70. vecchar ( 22, 13.9452,   7.8442);
  71. vecchar ( 23, 14.3108,   7.1554);
  72. vecchar ( 24, 14.6585,   6.4131);
  73. vecchar ( 25, 14.9813,   5.6180);
  74. vecchar ( 26, 15.2717,   4.7724);
  75. vecchar ( 27, 15.5223,   3.8806);
  76. vecchar ( 28, 15.7260,   2.9486);
  77. vecchar ( 29, 15.8764,   1.9846);
  78. vecchar ( 30, 15.9688,   0.9981);
  79. vecchar ( 31, 16.0000,   0.0000);
  80. vecchar ( 32, 15.9688,  -0.9981);
  81. vecchar ( 33, 15.8764,  -1.9846);
  82. vecchar ( 34, 15.7260,  -2.9486);
  83. vecchar ( 35, 15.5223,  -3.8806);
  84. vecchar ( 36, 15.2717,  -4.7724);
  85. vecchar ( 37, 14.9813,  -5.6180);
  86. vecchar ( 38, 14.6585,  -6.4131);
  87. vecchar ( 39, 14.3108,  -7.1554);
  88. vecchar ( 40, 13.9452,  -7.8442);
  89. vecchar ( 41, 13.5680,  -8.4800);
  90. vecchar ( 42, 13.1847,  -9.0645);
  91. vecchar ( 43, 12.8000,  -9.6000);
  92. vecchar ( 44, 12.4178, -10.0895);
  93. vecchar ( 45, 12.0412, -10.5361);
  94. vecchar ( 46, 11.6726, -10.9431);
  95. vecchar ( 47, 11.3137, -11.3137);
  96. vecchar ( 48, 10.9431, -11.6726);
  97. vecchar ( 49, 10.5361, -12.0412);
  98. vecchar ( 50, 10.0895, -12.4178);
  99. vecchar ( 51,  9.6000, -12.8000);
  100. vecchar ( 52,  9.0645, -13.1847);
  101. vecchar ( 53,  8.4800, -13.5680);
  102. vecchar ( 54,  7.8442, -13.9452);
  103. vecchar ( 55,  7.1554, -14.3108);
  104. vecchar ( 56,  6.4131, -14.6585);
  105. vecchar ( 57,  5.6180, -14.9813);
  106. vecchar ( 58,  4.7724, -15.2717);
  107. vecchar ( 59,  3.8806, -15.5223);
  108. vecchar ( 60,  2.9486, -15.7260);
  109. vecchar ( 61,  1.9846, -15.8764);
  110. vecchar ( 62,  0.9981, -15.9688);
  111. vecchar ( 63, -0.0000,   8.0000);
  112. vecchar ( 64,  0.9923,   7.9382);
  113. vecchar ( 65,  1.9403,   7.7611);
  114. vecchar ( 66,  2.8090,   7.4906);
  115. vecchar ( 67,  3.5777,   7.1554);
  116. vecchar ( 68,  4.2400,   6.7840);
  117. vecchar ( 69,  4.8000,   6.4000);
  118. vecchar ( 70,  5.2680,   6.0206);
  119. vecchar ( 71,  5.6569,   5.6569);
  120. vecchar ( 72,  6.0206,   5.2680);
  121. vecchar ( 73,  6.4000,   4.8000);
  122. vecchar ( 74,  6.7840,   4.2400);
  123. vecchar ( 75,  7.1554,   3.5777);
  124. vecchar ( 76,  7.4906,   2.8090);
  125. vecchar ( 77,  7.7611,   1.9403);
  126. vecchar ( 78,  7.9382,   0.9923);
  127. vecchar ( 79,  8.0000,   0.0000);
  128. vecchar ( 80,  7.9382,  -0.9923);
  129. vecchar ( 81,  7.7611,  -1.9403);
  130. vecchar ( 82,  7.4906,  -2.8090);
  131. vecchar ( 83,  7.1554,  -3.5777);
  132. vecchar ( 84,  6.7840,  -4.2400);
  133. vecchar ( 85,  6.4000,  -4.8000);
  134. vecchar ( 86,  6.0206,  -5.2680);
  135. vecchar ( 87,  5.6569,  -5.6569);
  136. vecchar ( 88,  5.2680,  -6.0206);
  137. vecchar ( 89,  4.8000,  -6.4000);
  138. vecchar ( 90,  4.2400,  -6.7840);
  139. vecchar ( 91,  3.5777,  -7.1554);
  140. vecchar ( 92,  2.8090,  -7.4906);
  141. vecchar ( 93,  1.9403,  -7.7611);
  142. vecchar ( 94,  0.9923,  -7.9382);
  143. vecchar ( 95, -0.0000,  -8.0000);
  144. vecchar ( 96, -0.0000,   4.0000);
  145. vecchar ( 97,  0.9701,   3.8806);
  146. vecchar ( 98,  1.7889,   3.5777);
  147. vecchar ( 99,  2.4000,   3.2000);
  148. vecchar ( 100,  2.8284,   2.8284);
  149. vecchar ( 101,  3.2000,   2.4000);
  150. vecchar ( 102,  3.5777,   1.7889);
  151. vecchar ( 103,  3.8806,   0.9701);
  152. vecchar ( 104,  4.0000,   0.0000);
  153. vecchar ( 105,  3.8806,  -0.9701);
  154. vecchar ( 106,  3.5777,  -1.7889);
  155. vecchar ( 107,  3.2000,  -2.4000);
  156. vecchar ( 108,  2.8284,  -2.8284);
  157. vecchar ( 109,  2.4000,  -3.2000);
  158. vecchar ( 110,  1.7889,  -3.5777);
  159. vecchar ( 111,  0.9701,  -3.8806);
  160. vecchar ( 112, -0.0000,  -4.0000);
  161. vecchar ( 113, -0.0000,   2.0000);
  162. vecchar ( 114,  0.8944,   1.7889);
  163. vecchar ( 115,  1.4142,   1.4142);
  164. vecchar ( 116,  1.7889,   0.8944);
  165. vecchar ( 117,  2.0000,   0.0000);
  166. vecchar ( 118,  1.7889,  -0.8944);
  167. vecchar ( 119,  1.4142,  -1.4142);
  168. vecchar ( 120,  0.8944,  -1.7889);
  169. vecchar ( 121, -0.0000,  -2.0000);
  170. vecchar ( 122, -0.0000,   1.0000);
  171. vecchar ( 123,  0.7071,   0.7071);
  172. vecchar ( 124,  1.0000,   0.0000);
  173. vecchar ( 125,  0.7071,  -0.7071);
  174. vecchar ( 126, -0.0000,  -1.0000);
  175. vecchar ( 127,  0.0000,   0.0000);
  176. %%%%%%%%%     End of VECBASE2.MF   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5
  177.